home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_gawk.idb / usr / freeware / share / awk / bits2str.awk.z / bits2str.awk
Text File  |  2002-07-08  |  327b  |  17 lines
  1. # bits2str --- turn a byte into readable 1's and 0's
  2.  
  3. function bits2str(bits,        data, mask)
  4. {
  5.     if (bits == 0)
  6.         return "0"
  7.  
  8.     mask = 1
  9.     for (; bits != 0; bits = rshift(bits, 1))
  10.         data = (and(bits, mask) ? "1" : "0") data
  11.  
  12.     while ((length(data) % 8) != 0)
  13.         data = "0" data
  14.  
  15.     return data
  16. }
  17.